myPlot<-function(data, slice=1, lower=1, upper=1) {
    # Slice the data:
    data_=readFromDB(lower, upper)
    if (slice!= 1)
        data_=data_[seq(1,length(data_[,1]),by=slice),]
    plot(as.POSIXlt(data_$dateTime), data_$kW, type='l', xlab='')
}
